home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 September / EnigmA AMIGA RUN 30 (1998)(G.R. Edizioni)(IT)[!][issue 1998-09].iso / earkit / news / thor / rexx / fse / removeuu.fse < prev    next >
Text File  |  1998-07-09  |  467b  |  30 lines
  1. /* $VER: RemoveUU.fse 1.0 (4.8.95)
  2.  * Remove quoted (with '>') uuencode text from the fse
  3.  * Author: Magne Østlyngen
  4.  */
  5.  
  6. options results
  7. MSGLENGTH
  8. lines=result
  9. i=1
  10. do forever
  11.   SETPOS 1 i
  12.   GETLINE i
  13.   ln=result
  14.   if left(ln,7)='>begin ' then do
  15.     i=i+1
  16.     SETPOS 1 i
  17.     do until left(ln,4)='>end'
  18.       GETLINE i
  19.       ln=result
  20.       DELETELINES
  21.       lines=lines-1
  22.       if i>lines then leave
  23.     end
  24.   end
  25.   i=i+1
  26.   if i>lines then leave
  27. end
  28. SETPOS 1 1
  29. exit
  30.